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Source Listing 
C IDENT ('V04-000'), 


-Sep-1984 


ARRRBASAAAAARAAAASALALALALALALAASASEALLALASAAAR ALARA S SALAS SESE SEAR R RARE ASAE SY 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS tn secte . FURNISHED nee A Or AND MAY BE USED AND all 
ONLY | E WwW THE TERMS OF C 


Ovl OTHER 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ConPORAT ion. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: VAX/VMS EDF (EDIT/FDL) UTILITY 
ABSTRACT: This facility is used to create, modify, and optimize 
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FDL specification files. 


ENVIRONMENT : NATIVE/USER MODE 
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AUTHOR: Ken F. Henderson Jr. 
CREATION DATE: 27-Mar-1981 
MODIFIED BY: 
v03-007 KFHOO007 Ken Henderson 8 Aug 1983 


Changes for seperate compilation. 


ip-se Sep-1984 2 9: 31: :57 VAX-11 Pasca 


Pa 
6:13 DISKSVMSMAS STER: EDF. 2 CRCJEDE CONST. PAS; 1 a1) 
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V03-006 KFHO006 Ken Henderson 27 Jul 1983 


Added BKTSC and IRCSC constants. 


v03-005 KFHOOOS Ken Henderson 14 Apr 1983 


Added BKTSC_MAXBKTSIZ. 


v03-004 KFHO004 Ken Henderson 31 Jan 1983 


Added XABS$C_BN8 and XABSC_IN8 until 
new Starlet.pen is made online. 


v03-003 KFHO003 Ken Henderson 8 Sept 1982 


Removed some definitions and added 


ifese Sep-1984 o $}: :57 VAX-11 Pascal V2.4-277 Page 2 
Source Listing -Sep-1984 6:13 ST SKSVMSMASTERS EDF. EC EDF CONST. PAS;1 (1) 
output from EDFSTRUCT.SDL (until Pasv2) 
v03-002 KFHOOO2 Ken Henderson 23-Mar-1982 
Added RMSS_FNF to fix FT2 QAR 694. 
v03-001 KFHOO01 Ken Henderson 17-Mar-1982 


Added BIGGEST_REL_VAR to support VFC better. 
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EDF CONST 53 -1984 57 VAX=11 Pascal V2.4-277 Page 3 E 
Vv ~800 Source Listing if Sep-19 4 99: 45: 13 DT SKSUMSMASTER CEDF -SRCJEDF CONST. PASS? C2) Vv 
poe8 ENVIRONMENT (‘LIBS:EDFCONST')) 8 
0070 MODULE EDF CONST; 0 
0071 0 
Bnre CONST 0 
007 0 
0074 ZINCLUDE *SYSSLIBRARY:PASDEF .PAS' 0 
ig ' (* PASDEF.PAS = VAX-11 Pascal V2 Condition Code Definitions *) 8 
a ta 1 (PRCA Re REAR AREER EAE AAERAAEAE HAHAHA ATEEAH ATER AE Hee eeKeeeKeAeeeeneeee 8 
1 (* * 
0079 I (* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 0 
poe : : Bre astute’ IPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 8 
* ® 
0082 | (* . 0 
008% | (= ONLY IN ACCORDANCE UITHe THE TERMS OF SSUCK ICENSE CAND UIT THE: 0 
0085 1 (* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 0 
0086 | (* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 0 
a $4 : i; fasepehete” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY . 
0089 1 (+ k * 0 
0090 | (* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 0 
a ¢ ae eoketite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT : 
0098 I (* : * 0 
0094 I (* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 0 
0095 : ° SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ~ 4 
0097 I (* ’ 0' 
0098 : (eee eee eee REAR A REA AAAAAE TERETE ARAARATAA AAA A HATER EAHA Aee eee eeKeeeeeeenes 4 
R180 ' (* Note: This file is designed to be included as part of a CONST section. *) 4 
a4 I PASS_FILALROPE = %X'00 Hae (* file is aj reed, © open *) 0" 
0103 | PAS$_ERRDUROPE = %x'00 1903 (* error during OPEN 0' 
0104 | PASS_FILNOTFOU = % + 805186 186 (* file not found *) 0' 
0105 1 PASS_INVFILSYN = %X‘0021 Sage: (* invalid filename syntax *) 0' 
0106 | PASS_ACCMETINC = %X‘'0021866C'; (* ACCESS_METHOD specified is incompatible with this file *) 0' 
0107 I PASS_RECLENINC = %Xx° 3 18674": (* RECORD-LENGTH specified is inconsistent with this file *) 0 
0108 | PASS_RECTYPINC = a 1867C°; (* RECORD-TYPE specified is inconsistent with this file *) 0’ 
a3 | PASE OMGeeNane  SASSUEES: —f GRGAMLEMION Bee fee Up Tacnslatene'witn tale fe’ : 
= Py nv 

0111 J PASS_KEYDEFINC = %X'00218694'; (* KEY(<n>) detinition is inconsistent with this file *) 
git¢ I PAS$_KEYNOT = 2X'0021869C'; (* KEY(<n>) is not defined in this file *) | 
01135 ~«J PASS_INVRECLEN = %X°002186A4'; (* invalid record length of <n> *) 
0114 | PASS_TEXREQSEQ = 2x‘°002186AC'; (* textfiles require sequential organization and access *) | 
0115 I IL = ax" 1 684"; (* F AL ee NAME required for this HISTORY or DISPOSITION *) 0 
oy I PASSCERROURELO. = ax° 18gce Hey during closeess. 0 
0118 | PASS_AMBVALENU = 2X'0021 30 (* “<string>’’ Is an Ge Slecsiead value for enumerated type | ““<type>"’ *) | 

119 «| PASS_INVSYNENU = 2X°0021875C'; (* ‘<string>'’ is invalid syntax for an enumerated va *) | 

120 | PASS_INVSYNINT = 2X°00218744'; (* ‘<string>’’ is invalid syntax for an integer value *) | 

121 | PASS_INVSYNREA = 2X°0021874C'; (* “<string>” is invalid syntax for a real value *) 

1 § I ASS_LINVSYNUNS = 2X'00218754'; (* ‘<string>’’ is invalid syntax for an unsigned, value *) 

1 1 PASS_NOTVALTYP = 2x'0021875C'; (* “<string>” is not a value of type ‘<type 

124 | PASS_ERRDURPRO = %X'00218764'; (* error during prompting *) 


BL be 
3 he 16-Sep-1984 00:41:57 VAX-11 Pascal V2.4-277 
Source Listing =300 71382 $8 :03:%6 VE2S5SpUASS- CSYSi 1B PASDEF .PAS;1 (1°29 , 
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0125 1 PASS_ERRDURWRI = 2x' : 
0156 | ° 90218704"; (* error during WRITELN *) 
0157 | PASSAINVETESPE = Sx Qosigrpc ys «fe tovalid field specification for WRITE *) § 
0198 | PASSTNEGUIDDIG = EX'OOSIB7EC': — (w negative Width of Digits specification is not allowed s) " 
o1e9 | PASS-MRIINVENS = Ex‘QOSTB7FG'; (+ URITE of on igvelt@ Srumersted velue se? ee 9 
1 of u 
0131 1 PASS "K ot 7 e ! Pee i: key value is incompatible with this file's key <n> *) 8 
01 é I PASS"KEYCHANOT = &X'00S1B884". te ey field duplication is not allowed *) 0 
01 I PASS"CURCOMUND = EX'OOSTBBBC': te key field change is not allowed *) 0 
01 I PASS"FAIGETLOC = %Xx'00S18894". es current component is undefined for DELETE or UPDATE *) 0 
0135 | PASSTDELNOTALL. = SX"00518900': Cw DELETE Te Got acioued fon a seque 9 
3 ! PASS_ERRDURDEL = %x'0021 960: te seed during DELETES) a sequential organization file *) 0 
J t. 
Ose | pAc-Eeamumeds =: Eucausiseres: fs greae quring CIN, gr FINK «1 0 
PASS_ ° 7 
0140 | pAze-benouneye - if ; > tei fs error during PUT *) | 8 
0141 I PASSTERRDURREW = %X'00518994". * error during RESET or RESETK *) | 0 
O142 I PASSTERRDURTRY = Eee Ht 3 4 9 (* error during REWRITE *) 0 
0148 | PASS"ERRDURUNL = EX°OOS1B9AG": i. error during TRUNCATE *) 0 
O14 | PASSTERRDURUPD = XX'OOD1B9AC': aerer es Care ol 0 
0145 I PASS FILNOTDIR = %X'002189B4' : pe error during UPDATE *) 9 
0146 | PASS"FILNOTGEN = %X°002189BC": s site is not opened for direct access *) 0 
0147 I ASS"FILNOTINS = EX°O0S189C4". = le is not in Generation mode *) 0 
0148 | PASS"FILNOTKEY = &x'OOS189CC": ° file is not in Inspection mode *) 0 
o180 | ASS"FILNOTOPE = Ex"OOSIB9DG'; Ce File ds not opens) eyes Sees | 0 
a PASE TIUMBTGED > BE BOgiaape,? | {HAE 18 net sequent iat graantzation 
- = ‘ ? 
Os" jj ease eE Nar Tchr - a ; : 43 2° Generation mode is not allowed for a READONLY file *) 8 
0184 | we ALA Gig Me tf aoe SD lh SE I iy pats 0 
018s 5 PASSINSVIRMEN = 3X" ; i ° s inspect ign mode is not allowed for a WRITEONLY file *) 0 
0186 | PASS"invaheras « En'Ot HF vy 9 te nsufficient virtual memory * | 0 
0158 | PASS-LINVALEXC = 1GAlg'; Ce LINELIAIT Galue exceeded 4) ey | 0 
0159 «1 PASS AE ceOT ACE : 1BAtEs: Co REWRITE is not allowed for a shared file *) 8 
0160 | PAS$S"TRUNOTALL = 1Ba5cs te meses is not allowed on an unopened internal file *) 0 
0161 | PASS"UPDNOTALL = BASS": te a is not allowed for a shared file *) 0, 
0162 I PASS” INVFILV ~ > : y eart is not allowed for a sequent iat organization file *) | 0 
b164 PASS_FILALRACT = 19F4C’; (* file “etiles ts atready por § eae : 9 
- o? ctive * 
0165 | PASSTERRDURDIS. = 1orsc': Ce error during DIsPO | 
0166 | PASS ERRDURMAR = 19F eG": (* error during DISPOSE *) | 
0167 | PASS_ERRDURREL = 19r64°; = (# error during RARK ®) | 0 
O168 I PASS"HALT : 19F Ci: (* error during RELEASE *) 8 
169 1 PASS"BUGCHECK = 19F roy ts HALT procedure called *) 4 
0170 | ASS_NEGDI s 19EBC'; (+ internal consistency failure <n> in Pascal Run-Time Library +) | § 
0171 «1 PASSTARRINDVAL = \eEee': : negative Digits argument to BIN, HEX or OCT is not allowed *) 0 
0178 I PASS ARRNOTC a 1BEBC’: Srey index value is out of range *) 
0173 «I PASSARRNOTSTR = 1BE tH = conformant array is not compatible *) 8 
0174 ‘| PASS"CASSELVAL = 1BE9C*: be conformant array is not a string *) 0 
0175 | PASS-CONCATLEN = 4-0 Be he Md Res 0 
pi76 1 SS"PADLENERR = 1BEAC’: i str ng concatenation has more than 65535 characters *) 0 
0177 | PASS-PTRREFNIL = ipsaeen =. Ey Coteher apesreuee § 0 
0178 I PASS"SETASGVAL = iBEBC': oe pointer reference to NIL *) 
ate I S$"SETCONVAL = 1BECG": (e set assignment value has element out of range *) 6 
giao | PASS“STRASGLEN = iSEFesE 2s Ey cotane aeteneeal Conath ates ae | 0 
PASS_STRCOMLEN = 1BED4'; (* strings comparison length error *) | 


TO c008 Source Listing i “5207198 82: 68:36 Mees ssnuase tsvSi LBIPA PASDEF .PAS;1 ay? wa 


1 I PASS_SUBASGVAL = %X‘OO21BEDC'; (* subrange assignment value is out of range *) 
pies I PAS$_SUBSTRSEL = %x' 1BERS*: (* SUBSIR select on error *) . 
Big l PASS_VARINDVAL = 2X'OO21BEEC'; (* vary ing index value is greater than current length *) 
318? : PASS_ORDVALOUT = %x' 1BEF4'; (* ardine value is out of range *) 
0187 | (* End of PASDEF.PAS *) 
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1065000 Source Listing ifese ae ae 65; 3 VEaSS$pUASEctSYSc IBSPASSTATUS. PAS; 1 cage . 


(* FILE_NAME required for this HISTORY or DISPOSITION *) 


Noy stents 


E 
PASSK. “FILACRCLO (* file"is alread ofennte *) 


PASSK_ERRDURCLO (* error not Cc 
VALENU S 


E 
Vv 
0189 ZINCLUDE *SYSSLIBRARY:PASSTATUS.PAS' 0 
Bie ! (* PASSTATUS.PAS = VAX=11 Pascal V2 STATUS Function Value Definitions *) e 
B36 : (eee eee eee AAAAAAAAARAAAAAEAHHAERHAHE HEHE AET ETEK ee TeeTeH Ree eeee 8 
(* © 
0194 I (* COPYRIGHT (c) 1978, 1980, 1982, 1984 * 0 
0195 1 (* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 9 
8138 3 ALL RIGHTS RESERVED. * 4 
® 
0198 | (* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 0 
0199 I (* ONLY IN ACCORDANCE WITH THE tears OF ate ob Cease AND WITH THE * 0 
0200 | (* in CLUSION OF THE ABOVE corral ent NOTICE. THIS SOFTWARE OR ANY OTHER * 0 
0201 | (* Copies THEREOF wy wr BE PROVIDED OR OTHERWISE Chae AVAILABLE TO ANY * 0 
0 Og I (* OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 0 
9205 (s TRANSFERRED. * 9 
i ' 
Oso? 1 (* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 0 
0 08 I (* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 0 
8506 ' s CORPORATION. * 8 
a ' 
0209 | (* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 0 
8519 : - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® | e 
‘ 
oste I (* . 0 
OSiz ' (Re ee Ree RERER AAA HAHAHAHA AAAAEAREAEAHAERAHAEAARATAE AAR REKeAeeeKeeAeee 4 
0315 : (* These values are returned by the predefined STATUS function. *) 3 
0217 | CONST 0 
0218 | PASS$K_EOF = 1; (* file is at end-of-file *) 0 
i344 ' PASS$K_SUCCESS = 3 (* Last operation successful *) 3 
0554 I PAS$K_F ILALROPE (* file is already 0 open *) 0 
pee I PASSK— Me tt (* error during 0 s 0 
0225 I PASSK_F ILNOTFOU (* file not found * 0 
0224 | PASSK_INVFILSYN (* invalid Swe syngex *) 0 
0225 | PASSK_ACCMETINC (* ACCESS_METHOD specified is incompatible with this file *) 0 
0226 1 PASSK_RECLENINC (* ~ $5 RD_LENGTH specified is inconsistent with this file *) 0 
0227 I PASSK_RECTYPINC (* R ECORD, TYPE specified is inconsistent with this file *) 0 
0228 | PASS$K_ORGSPE (* ORGANI? ATION s eee iT ied is inconsistent with this file » 0 
8 I PASSK_INVKEYDEF (* invalid key det inition *) | 0 
0 I SSK_KEYDEF I (* KEY(<n>) definition is lecnnsteeent with this file *) 0 
0231 | ASSK KE NDT OES (* KEY(<n>) is not defined in this file *) 0 
oss | PASSK_INVRECLEN (* invalid record Length of <n> *) g 
I PASSK- mS tte textfiles require sequential organization and access *) 
0 I PA NAMREQ 0 
0 I 0 
ai | 
0 | 8 
Bi | 
: 
| 
I 
I 
0 I 
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2 
PASSK_AMBV (* ““<strin an ambiguous value for enumerated yee "“<type>"’ *) 
$33 PASSK_INVSY (* “<string>” i 5 taval d syntax for an enumerated va *) 
9 PASSK_INVSYNINT (* "<string>" is invalid syntax for an integer velve *) 
40 PASSK_INVSYNREA (* *<string>’’ is invalid syntax for a real value *) 
41 PASSK_INVSYNUNS (* ‘<string>’ is invalid syntax for an unsigned, value *) 
rk PASSK_NOTVALTYP (* “<string>” is not a voltae of type ‘<type>"’ * 
4 PAS$K_ERRDURPRO (* error during 9 pr peering, ©? 
44 PASSK_ERRDURUWRI (* error qucine RIT LN 
45 PASSK_ INVF IESPE (* invalid field specification for WRITE *) 


uf 
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Source 


PASSK_LINTOOLON 


PASS$K_UPDNOTALL 


(* End of PASSTATUS.PAS *) 


eB ae 8 a da a bs tt st a 4 es ts 8 ss 


a? - 4-277 
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Line is tee long, exceeded record length by <n> character(s) *) 
a or tve wid dth or Digits spec rreps tes is not allowed *) 
E of an invalid cousers ed value 
ye F is incom ger ibl e with this. tite’ s key <n> *) 
key field dupticatt s not allowed *) 
key field change is not allowed *) 
gucrent component is undefined for DELETE or UPDATE *) 
failed to GET locked component *) 
DELETE is not or aeee?, for a sequential organization file *) 
error during DELETE * 
error during FIND or INDK *) 
error during GET *) 
error during PUT *) 
error during atte or pose re *) 
error during REWRITE *) 
error during TRUNCATE *) 
error during UNLOCK *) 
error during UPDATE *) 
file is not opened for direct access *) 
file is not in Generation mode *) 
e is not in Inspection mode *) 
e is not opened for keyed access *) 
e is not open *) 
e is not sequential organization *) 
e is not a textfile *) 
seoseurten mode is aot allowed for a READONLY file *) 
GET attempted after end-of-file 
Inspection mode is not allowed for a WRITEONLY file *) 
insufficient virtual memory * 
invalid argument to Pascal Run-Time Library *) 
She ae ead value exceeded *) 
REWRITE is not allowed A, a shared file *) 
is not allowed on an unopened a adhe 7 file *) 
ATE is not allowed for a shared file * 
E is not allowed for a sequential organization file *) 
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3 
EDF CONST ig Sep-1984 1:57 VAX-11 Pascal V2.4-277 Page 8 E 
Foe c008 Source Listing Sep-19 4 99: 46; :13 DE EKSUMSMASTER FEDF-SRCIEDFCONST.PASS4 C4) V 
0284 { + 
5 ~ following are for = ioaaeen string descriptors. 
8 DSCSK_CLASS_S 3 perme descriptor class } 0 
88 DSCS$K_CLASS_D = gi Dynamic string gescriptor class } 0 
89 DSCSK-DTYPE_T i; Text data type 0 
0290 0 
0291 { + 0 
° 35 ~ following are for condition handling. 8 
0294 STSSV_SEVERITY = g: 0 
8 95 STS$S_SEVERITY = 3; Q 
+] 0 
029 { + 0 
° ss ~ following are general constants used by EDF. 8 
0 EDF $C_HEADROOM = pers in of Lines left on screen } 0 
0301 EDFSC“SHIFTPOINT = tbo: ughifting th the Menus } 0 
0308 EDFSC~1GIGA = 999599999: Oce minus 1 0 
0 0 
0304 { + 0 
0305 The following are used to gtootert and parse file protection codes. 0 
Bane In a Line object’ *s PROT_MASK fie 
Bene THE PROTECTION WORD IS: | g 
Berg (MSF in word) WORLD : GROUP : OWNER : SYSTEM (LSF in word) 
o3ig EACH 4 BIT FIELD IS: 8 
Bie (MSB in field) NODEL :! NOEXE :! NOWRITE : NOREAD (LSB in field) ! 
$316 FALSE = DENY ACCESS NOTE: THIS IS THE TRUE/FALSE sense OF JUST 0 
0317 TRUE = ALLOW ACCESS FDLSGL PROTECTION AND EDFS$GL_P MASK. 0 
$319 THE ACTUAL XABPRO BITS ARE (T= DENT/ Os ALLOW) 8 
8360 -} 0 
0321 EDFS$V_SYS = 0; 0 
B35§ EDF $V_OWN = 4; 0 
032 EDF $V_GRP = 8; 0 
0324 EDFS$V—WLD = 12; 0 
0325 EDF $V_NOREAD = 0; 0 
$ EDF $V_NOWRITE = 1; 
EDF $V_NOE XE 2 ¢: 
; : EDF SV_NODEL = 3; 
{ + 
0331 5 following define RMS Prologue 2 and 3 structure constants. 
8 4 P2_ BUCKET OVERHEAD = 15; : 
BIGGEST_P2_F1X_RECORD = 16362; ¢ 
0335 BIGGEST—P2- VAR" REC = 18 60; 
Hy BIGGEST-SEG_FIRED = 3 : 
BIGGEST _REL_F = 193 3; 
BIGGEST"REL_VAR s 48 1; 
H BIGGEST—ANST_TAPE = 9995; 


1. sep-19 4 00:31:32 VAX-11 Pascal 9 
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1 BKTSC “DvERHDSZ 
Be 1st OVE OVERHDS 
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EDF SK “RAXRECSIZ ad 
CIRCSC_KEYCMPOVH+] 


EDFSC_MAX GBL_BUFS = 
EDFSK_TEMP_ VARYING. SIZE . $f 


BUCKET_LEFT_WEIGHT = 0.10; ¢ These are used to help find the } 
BUF FER-SPACE_FACTOR 2 33 { ‘Right’ bucketsize } 


MAX_ARRAY_ROW = 12; { this value affects EDFGRF.B32 } 


KTSC_MAXBKTSIZ*512) = 
C_VAROVHSZ3+IRCSC_DATCMPOVH)); 


| 
| 
| 
67; if RMS field is a word; pos values only } 


tn ete tee 2S. | 


OWONOVE WN “OOO fur 
= w™ f@ 


PAPA AIAII 


WAw 


3 umber of characters in scratch string } 


Wo Ww BK WIN O-OWF SENSO 


SEFERES 


& 
~ 
= 

~ 


(e¢ 
; FDL CALL INTERFACE CONTROL FLAGS *) 
hie 


GNAL = 1; 

L_STRING = 2; 

tay STRING = 
TPuT = 


| 

| 

CONST | 
LOU 
ALCBACK = Ay | 


{ + 
aed 8-BYTE KEY DATA TYPES 


SOOOSOSOSOSOSOSOSOSOSSOSSOSSSOSOSSOOSOSSOOCSCOCOCOOOOSOOOOOOOOoOoOoOoOoOo 
Peeves IIIS S 
ROZSIsanoreun—oo 


CONST XABSC_IN8 = 6; 
XABSC_BN8 = 7; 
384 { End of file SRC$:EDFCONST.PAS > | 
386 END. 
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Generated Code Merete bse: tg | Peed anGARSthe  Pebr- Saczeprconst.pased?%a)— 
TITLE EDF CONST 
IDENT \V04=000\ 
00000 SEND 
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Pascal Compilation Statistics ifose -Sep-1984 


EDF CONST 1: 
v04=000 a BBi86:%5 
COMMAND QUALIFIERS 

PASCAL /MACHINE /NODEBUG/NOCHECK/LIS=LIS$:EDFCONST/OBJ=OBJ$:EDFCONST MSRC$:EDF CONST 


/CHECK=(NOBOUNDS ,NOCASE SELECTORS ,NOOVERF LOW ,.NOPOINTERS , NOSUBRANGE ) 


/DEBUG=(NOSYMBOL § NOTRACEBACK) 

JENVIRONMENT= $255$0UA28: EDF .08 OBJ JEDF CONST. PEN; 1 

/LIST=_$2 3$00 : EDEL LISJE LIS; 1 
JECT=_$255$ EDF .0BJ 


COMPILER INTERNAL TIMING 


Phase Faults gnu Time hag * ¥9 Time 
Initialization 44 0:00.4 0:02.7 
Source Anelysis 13 0:01. BR: 4.3 
Source List 40 88: B05 +2 
Tree Construction 0 8:8 ® 8: 0 
Flow Analysis 0 00:00. 0:00.0 
Profit “analyst 0 0:00. 00:00.0 
Context Analysis 0 0:00. 00:00.0 
Name Pack ae 0 0:00.0 fhe ae 
Code Selection ° B23 0:00.0 
Final 5 00:00. 00:03.0 
TOTAL 316 00:02.8 00:12.6 


COMPILATION STATISTICS 


CPU Time: 99:06 -8 (8301 Lines/Minute) 
Elapsed Time: 00:12.6 
Page Faults: 316 


Compilation a 5. 


cal Hott 
DISKSVMSMASTER: LEDF .SRCJEDFCONST.PAS;1 


Page 


F CONST 
5 DUA2 EDF J31 
/NOCROSS—REF ERENCE 7ERROR 0B EDF cons FLOATING /MACHINE_CODE /NOOLD_VERSION /OPTIMIZE /NOSTANDARD /WARNINGS 


(4) 


1 
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